home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8189 < prev    next >
Encoding:
Text File  |  1996-09-10  |  1.0 KB  |  135 lines
  1. %%BeginFile: lw8_uniform_graphics-2.0
  2. /@a
  3. {
  4. np :M 0 rl :L 0 exch rl 0 rl :L fill
  5. }bd
  6. /@b
  7. {
  8. np :M 0 rl 0 exch rl :L 0 rl 0 exch rl fill
  9. }bd
  10. /@c
  11. {
  12. moveto 0 rlineto stroke
  13. }bd
  14. /@w
  15. {
  16. moveto 0 exch rlineto stroke
  17. }bd
  18. /arct where
  19. {
  20. pop
  21. }{
  22. /arct
  23. {
  24. arcto pop pop pop pop
  25. }bd
  26. }ifelse
  27. /x1 Z
  28. /x2 Z
  29. /y1 Z
  30. /y2 Z
  31. /rad Z
  32. /@q
  33. {
  34. /rad xs
  35. /y2 xs
  36. /x2 xs
  37. /y1 xs
  38. /x1 xs
  39. np
  40. x2 x1 add 2 div y1 :M
  41. x2 y1 x2 y2 rad arct
  42. x2 y2 x1 y2 rad arct
  43. x1 y2 x1 y1 rad arct
  44. x1 y1 x2 y1 rad arct
  45. fill
  46. }bd
  47. /@s
  48. {
  49. /rad xs
  50. /y2 xs
  51. /x2 xs
  52. /y1 xs
  53. /x1 xs
  54. np
  55. x2 x1 add 2 div y1 :M
  56. x2 y1 x2 y2 rad arct
  57. x2 y2 x1 y2 rad arct
  58. x1 y2 x1 y1 rad arct
  59. x1 y1 x2 y1 rad arct
  60. :K
  61. stroke
  62. }bd
  63. /@i
  64. {
  65. np 0 360 arc fill
  66. }bd
  67. /@j
  68. {
  69. gS
  70. np
  71. :T
  72. scale
  73. 0 0 .5 0 360 arc
  74. fill
  75. gR
  76. }bd
  77. /@e
  78. {
  79. np
  80. 0 360 arc
  81. :K
  82. stroke
  83. }bd
  84. /@f
  85. {
  86. np
  87. $m currentmatrix
  88. pop
  89. :T
  90. scale
  91. 0 0 .5 0 360 arc
  92. :K
  93. $m setmatrix
  94. stroke
  95. }bd
  96. /@k
  97. {
  98. gS
  99. np
  100. :T
  101. 0 0 :M
  102. 0 0 5 2 roll
  103. arc fill
  104. gR
  105. }bd
  106. /@l
  107. {
  108. gS
  109. np
  110. :T
  111. 0 0 :M
  112. scale
  113. 0 0 .5 5 -2 roll arc
  114. fill
  115. gR
  116. }bd
  117. /@m
  118. {
  119. np
  120. arc
  121. stroke
  122. }bd
  123. /@n
  124. {
  125. np
  126. $m currentmatrix
  127. pop
  128. :T
  129. scale
  130. 0 0 .5 5 -2 roll arc
  131. $m setmatrix
  132. stroke
  133. }bd
  134. %%EndFile
  135.